Belgian Amiga Club - ADF Collection

home *** CD-ROM | disk | FTP | other *** search

/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Helm d4.adf / Customer (.txt) < prev next >

Wrap

Helm Multimedia Book | 1993-07-14 | 33KB | 570 lines

Customer 10-Nov-92 New... Open... Make Copy... Streamline... Print... Report... Preferences... Workbench Help... About... Quit... Paste Clear Select All Cut Page Copy Page Colors Load... Save... Restore Colors Default Colors Brush Colors Image Colors Cycle Grid... Stop Sound Show All Edit Form Share Next Page Previous Page First Page Last Page Backward Forward Last Book Browse... Autobrowse... Bookshelf New Page Delete Page New Form Load Form... Save Form... Image Load... Save... Capture... Clipboard Paste Spare Swap Frames Copy to Spare Merge in Front Merge in Back Delete Spare Frame Previous Delete Copy to All Color Remap Transparency Paper <-> Pen Paper -> Pen Count Vertical Horizontal Info... Brush Load... Save... Restore Clipboard Paste Color Remap Transparency Paper <-> Pen Paper -> Pen Center Corner Any Point Any Size Halve Double Halve Width Halve Height Double Width Double Height To PAL To NTSC Vertical Horizontal Shear Vertical Horizontal Rotate Any Angle Paint Matte Color Replace Smear Dissolve Spare Cycle Cycle 2 Gradient Gradient 2 Smudge Chaos Count Custom Dither Edges Object Load... Save... Bring to Front Send to Back Bring Closer Send Farther Group Ungroup Duplicate... Align... Info... Actions... Script... Load... Save... Plain Underline Italic Shadow Font... Spacing... Hypertext Actions... Script... Tools Coordinates Title Bar Palette Colors Patterns Paint Tools Paint Types Histogram Magnifier Messages Draw Tools Layers Pages Author Book... Form... Page... Display... Menus... Narrator... Hypertext... Resources... Effect... Effect Area DDDUUUfffwww Book23 PTopaz8 topaz.font 20GLOB Forester Nickerson ram:Book23 Books/Customer Last Name First Name Company Street State Country Notes Phone @DDelete Page @wNew Page @FFind @SSort @RReturn @BBookshelf ~@NNext @PPrevious & C U S T O M E R D A T A B A S E Number Company @QQuit Phone @11 Dial @22 Dial on SelectUp begin create page put timestring(date, time, "%m") & "-" into datestring put timestring(date, time, "%d") & "-" after datestring put timestring(date, time, "%y") after datestring put datestring into textfield "Date" _on SelectUp begin answer "What field do you want to search?" with "@IID" or "~@NLast Name" or "@CCompany" put it into sf ask "Enter search text:" if it is not empty begin lock display set allowsearch of textfield "Last" to false set allowsearch of textfield "Number" to false set allowsearch of textfield "Company" to false if sf is "Last Name" then set allowsearch of textfield "Last" to true if sf is "ID" then set allowsearch of textfield "Number" to true if sf is "Company" then set allowsearch of textfield "Company" to true unlock display find it end NaWhat field do you want to search? ~@NLast Name @CCompany Enter search text: Number Company Last Name Number Company Company don SelectUp begin answer "Sort on which textfield?" with "@IID" or "~@NLast Name" or "@CCompany" if it is "Last Name" then put "Last" into sf if it is "ID" then put "Number" into sf if it is "Company" then put "Company" into sf answer "Do you really want to sort?" with "~@YYes" or "@NNo" if it is "Yes" then sort ascending by textfield sf Sort on which textfield? ~@NLast Name @CCompany Last Name Number Company Company Do you really want to sort? ~@YYes Mon SelectUp begin answer "Customer Database V1.1\nEagle Tree Software" Customer Database V1.1 Eagle Tree Software /on SelectUp begin dial textfield "Phone" Phone -on SelectUp begin dial textfield "FAX" }on PageClose begin if the name of this page != textfield "Last" then set the name of this page to textfield "Last" 1-804/452-0623 23860-0164 Hopewell P.O. Box 164 Eagle Tree Software 06-08-93 Scott Nickerson Nickerson ptopaz 3o3xg ITALIA Volterra 19 Kathleen Street Ramage Software, Ltd 11-15-92 Dudley "Rhymes with Damage." 99999 Hollywood 456 Rodeo Drive Hotspur, Inc. 03-4-93 Cecil Forester Forester Chicago p?0v` p?0|0 s>|~? 22222 Williamsburg 432 Cook Way Inport/Export, Inc. 06-28-93 Alexander 99999 Hollywood 456 Smallbridge Drive Hotspur, Inc. 03-4-93 Cecil Forester Forester Last Name First Name Company Street State Country Notes Phone @DDelete Page @wNew Page @FFind @SSort @RReturn @BBookshelf ~@NNext @PPrevious Customer Database Number Company @QQuit Phone @11 Dial @22 Dial on SelectUp begin create page put timestring(date, time, "%m") & "-" into datestring put timestring(date, time, "%d") & "-" after datestring put timestring(date, time, "%y") after datestring put datestring into textfield "Date" _on SelectUp begin answer "What field do you want to search?" with "@IID" or "~@NLast Name" or "@CCompany" put it into sf ask "Enter search text:" if it is not empty begin lock display set allowsearch of textfield "Last" to false set allowsearch of textfield "Number" to false set allowsearch of textfield "Company" to false if sf is "Last Name" then set allowsearch of textfield "Last" to true if sf is "ID" then set allowsearch of textfield "Number" to true if sf is "Company" then set allowsearch of textfield "Company" to true unlock display find it end NaWhat field do you want to search? ~@NLast Name @CCompany Enter search text: Number Company Last Name Number Company Company don SelectUp begin answer "Sort on which textfield?" with "@IID" or "~@NLast Name" or "@CCompany" if it is "Last Name" then put "Last" into sf if it is "ID" then put "Number" into sf if it is "Company" then put "Company" into sf answer "Do you really want to sort?" with "~@YYes" or "@NNo" if it is "Yes" then sort ascending by textfield sf Sort on which textfield? ~@NLast Name @CCompany Last Name Number Company Company Do you really want to sort? ~@YYes Mon SelectUp begin answer "Customer Database V1.1\nEagle Tree Software" Customer Database V1.1 Eagle Tree Software /on SelectUp begin dial textfield "Phone" Phone -on SelectUp begin dial textfield "FAX" }on PageClose begin if the name of this page != textfield "Last" then set the name of this page to textfield "Last" Customer Scott Nickerson 10-Nov-92 New... Open... Make Copy... Streamline... Print... Report... Preferences... Workbench Help... About... Quit... Paste Clear Select All Cut Page Copy Page Colors Load... Save... Restore Colors Default Colors Brush Colors Image Colors Cycle Grid... Stop Sound Show All Edit Form Share Next Page Previous Page First Page Last Page Backward Forward Last Book Browse... Autobrowse... Bookshelf New Page Delete Page New Form Load Form... Save Form... Image Load... Save... Capture... Clipboard Paste Spare Swap Frames Copy to Spare Merge in Front Merge in Back Delete Spare Frame Previous Delete Copy to All Color Remap Transparency Paper <-> Pen Paper -> Pen Count Vertical Horizontal Info... Brush Load... Save... Restore Clipboard Paste Color Remap Transparency Paper <-> Pen Paper -> Pen Center Corner Any Point Any Size Halve Double Halve Width Halve Height Double Width Double Height To PAL To NTSC Vertical Horizontal Shear Vertical Horizontal Rotate Any Angle Paint Matte Color Replace Smear Dissolve Spare Cycle Cycle 2 Gradient Gradient 2 Smudge Chaos Count Custom Dither Edges Object Load... Save... Bring to Front Send to Back Bring Closer Send Farther Group Ungroup Duplicate... Align... Info... Actions... Script... Load... Save... Plain Underline Italic Shadow Font... Spacing... Hypertext Actions... Script... Tools Coordinates Title Bar Palette Colors Patterns Paint Tools Paint Types Histogram Magnifier Messages Draw Tools Layers Pages Author Book... Form... Page... Display... Menus... Narrator... Hypertext... Resources... Effect... Effect Area DDDUUUfffwww